home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / testfiles / TestClipBoard.2 < prev    next >
Encoding:
Text File  |  2004-01-31  |  935 b   |  37 lines
  1. cb2 <- ClipBoard new: 2
  2.  
  3. cb2 writeFTXTClipToFTXTFile:  'RAM:CheckCB2FTXT'
  4. cb2 writeFTXTClipToASCIIFile: 'RAM:CheckCB2ascii'
  5.  
  6. "newcb6 <- ClipBoard new: 6"
  7. "newcb6 sendAsciiFileToClip: 'RAM:CheckCB2ascii'"
  8.  
  9. "newcb7 <- ClipBoard new: 7"
  10. "newcb7 sendFTXTFileToClip:  'RAM:CheckCB2FTXT'"
  11.  
  12. "newcb8 <- ClipBoard new: 8"
  13. "newcb8 sendILBMFileToClip: 'AmigaTalk:C/AmigaTalk.iff'"
  14.  
  15. "newcb8 clipTypeIs,' (S/B #ILBM for newcb8)' print"
  16. "newcb7 clipTypeIs,' (S/B #FTXT for newcb7)' print"
  17.  
  18. "tst <- 'This is a test string for the Clipboard!'"
  19.  
  20. "cb1 <- ClipBoard new: 1"
  21.  
  22. "cb1 sendAsciiStringToClip:    tst"
  23. "cb1 writeFTXTClipToASCIIFile: 'RAM:CheckCB1ascii'"
  24.  
  25. "length <- tst size"
  26.  
  27. "ftxt String new: length"
  28.  
  29. "'Done testing ClipBoard methods, now for IFFClipBoard...' print"
  30.  
  31. "iffcb3 <- IFFClipBoard new"
  32.  
  33. "iffcb3 sendFTXTClip:    1 toFTXTString:   ftxt"
  34. "iffcb3 writeToClipUnit: 9 fromFTXTString: ftxt"
  35.  
  36. "'Done testing IFFClipBoard methods!' print"
  37.